/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / Travers' lisp contrib.sea / Travers' lisp contrib / mt-fred-hacks.lisp

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 12 6d 74 2d 66 72 65 | 64 2d 68 61 63 6b 73 2e |..mt-fre|d-hacks.|
|00000010| 6c 69 73 70 00 00 00 00 | 00 00 00 00 00 00 00 00 |lisp....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 2d 58 00 | 00 01 df a6 11 3e ff a6 |.....-X.|.....>..|
|00000060| 11 3e ff 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.>......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 06 a3 00 00 |........|........|
|00000080| 28 69 6e 2d 70 61 63 6b | 61 67 65 20 3a 63 63 6c |(in-pack|age :ccl|
|00000090| 29 0d 0d 3b 3b 3b 20 49 | 64 65 73 20 6f 66 20 4d |)..;;; I|des of M|
|000000a0| 61 72 63 68 20 2d 20 72 | 65 6c 65 61 73 65 64 20 |arch - r|eleased |
|000000b0| 74 6f 20 63 64 2d 72 6f | 6d 0d 3b 3b 3b 20 57 65 |to cd-ro|m.;;; We|
|000000c0| 64 6e 65 73 64 61 79 20 | 4d 61 72 63 68 20 32 35 |dnesday |March 25|
|000000d0| 2c 31 39 39 32 20 31 3a | 32 37 61 6d 20 2d 20 61 |,1992 1:|27am - a|
|000000e0| 72 67 73 20 77 69 74 68 | 69 6e 20 6b 65 79 62 6f |rgs with|in keybo|
|000000f0| 61 72 64 20 6d 61 63 72 | 6f 73 20 77 65 72 65 20 |ard macr|os were |
|00000100| 6e 6f 74 20 68 61 6e 64 | 6c 65 64 20 72 69 67 68 |not hand|led righ|
|00000110| 74 2e 0d 0d 3b 3b 3b 20 | 53 6f 6d 65 20 6f 66 20 |t...;;; |Some of |
|00000120| 74 68 69 73 20 73 74 75 | 66 66 20 69 73 20 63 6f |this stu|ff is co|
|00000130| 70 69 65 64 20 61 6e 64 | 2f 6f 72 20 6d 6f 64 69 |pied and|/or modi|
|00000140| 66 69 65 64 20 66 72 6f | 6d 20 65 78 61 6d 70 6c |fied fro|m exampl|
|00000150| 65 73 3b 61 73 73 6f 72 | 74 65 64 2d 66 72 65 64 |es;assor|ted-fred|
|00000160| 2d 63 6f 6d 6d 61 6e 64 | 73 2e 6c 69 73 70 0d 0d |-command|s.lisp..|
|00000170| 3b 3b 3b 20 43 6f 6e 74 | 65 6e 74 73 3a 20 20 0d |;;; Cont|ents:  .|
|00000180| 3b 20 4d 53 57 6f 72 64 | 2d 6c 69 6b 65 20 66 6f |; MSWord|-like fo|
|00000190| 6e 74 20 63 6f 6d 6d 61 | 6e 64 73 0d 3b 20 49 6d |nt comma|nds.; Im|
|000001a0| 70 72 6f 76 65 64 20 6d | 2d 28 20 0d 3b 20 77 69 |proved m|-( .; wi|
|000001b0| 6e 64 6f 77 20 63 68 61 | 6e 67 69 6e 67 20 63 6f |ndow cha|nging co|
|000001c0| 6d 6d 61 6e 64 73 0d 3b | 20 61 75 74 6f 2d 66 69 |mmands.;| auto-fi|
|000001d0| 6c 6c 20 61 6e 64 20 66 | 69 6c 6c 2d 70 61 72 61 |ll and f|ill-para|
|000001e0| 67 72 61 70 68 20 28 69 | 6d 70 72 6f 76 65 64 20 |graph (i|mproved |
|000001f0| 66 72 6f 6d 20 61 70 70 | 6c 65 2d 73 75 70 70 6c |from app|le-suppl|
|00000200| 69 65 64 20 76 65 72 73 | 69 6f 6e 73 29 0d 3b 20 |ied vers|ions).; |
|00000210| 4b 65 79 62 6f 61 72 64 | 20 4d 61 63 72 6f 73 0d |Keyboard| Macros.|
|00000220| 0d 3b 3b 3b 20 4d 53 57 | 6f 72 64 2d 6c 69 6b 65 |.;;; MSW|ord-like|
|00000230| 20 66 6f 6e 74 20 63 6f | 6d 6d 61 6e 64 73 0d 0d | font co|mmands..|
|00000240| 28 64 65 66 6d 61 63 72 | 6f 20 6d 61 6b 65 2d 66 |(defmacr|o make-f|
|00000250| 6f 6e 74 2d 63 6f 6d 6d | 61 6e 64 20 28 63 68 61 |ont-comm|and (cha|
|00000260| 72 20 61 74 74 72 69 62 | 75 74 65 29 0d 20 20 28 |r attrib|ute).  (|
|00000270| 6c 65 74 20 28 28 73 79 | 6d 62 6f 6c 20 28 6d 61 |let ((sy|mbol (ma|
|00000280| 6b 65 2d 73 79 6d 62 6f | 6c 20 28 63 6f 6e 63 61 |ke-symbo|l (conca|
|00000290| 74 65 6e 61 74 65 20 27 | 73 74 72 69 6e 67 20 22 |tenate '|string "|
|000002a0| 45 44 2d 46 4f 4e 54 2d | 43 48 41 4e 47 45 2d 22 |ED-FONT-|CHANGE-"|
|000002b0| 20 28 70 72 69 6e 63 2d | 74 6f 2d 73 74 72 69 6e | (princ-|to-strin|
|000002c0| 67 20 61 74 74 72 69 62 | 75 74 65 29 29 29 29 29 |g attrib|ute)))))|
|000002d0| 0d 20 20 20 20 60 28 70 | 72 6f 67 6e 0d 20 20 20 |.    `(p|rogn.   |
|000002e0| 20 20 20 20 28 64 65 66 | 6d 65 74 68 6f 64 20 2c |    (def|method ,|
|000002f0| 73 79 6d 62 6f 6c 20 28 | 28 76 20 66 72 65 64 2d |symbol (|(v fred-|
|00000300| 6d 69 78 69 6e 29 29 0d | 20 20 20 20 20 20 20 20 |mixin)).|        |
|00000310| 20 28 73 65 74 2d 76 69 | 65 77 2d 66 6f 6e 74 20 | (set-vi|ew-font |
|00000320| 76 20 2c 61 74 74 72 69 | 62 75 74 65 29 29 0d 20 |v ,attri|bute)). |
|00000330| 20 20 20 20 20 20 28 63 | 6f 6d 74 61 62 2d 73 65 |      (c|omtab-se|
|00000340| 74 2d 6b 65 79 20 2a 63 | 6f 6d 74 61 62 2a 20 27 |t-key *c|omtab* '|
|00000350| 2c 63 68 61 72 20 27 2c | 73 79 6d 62 6f 6c 29 29 |,char ',|symbol))|
|00000360| 29 29 0d 0d 3b 3b 3b 20 | 54 68 65 73 65 20 6d 75 |))..;;; |These mu|
|00000370| 73 74 20 62 65 20 61 63 | 63 65 73 73 65 64 20 77 |st be ac|cessed w|
|00000380| 69 74 68 20 61 63 74 75 | 61 6c 20 63 6f 6e 74 72 |ith actu|al contr|
|00000390| 6f 6c 20 6b 65 79 2c 20 | 73 69 6e 63 65 20 43 6f |ol key, |since Co|
|000003a0| 6d 6d 61 6e 64 2d 73 68 | 69 66 74 20 67 65 74 73 |mmand-sh|ift gets|
|000003b0| 0d 3b 3b 3b 20 79 6f 75 | 20 6d 65 6e 75 20 61 63 |.;;; you| menu ac|
|000003c0| 63 65 6c 65 72 61 74 6f | 72 73 20 61 6e 64 20 74 |celerato|rs and t|
|000003d0| 68 61 74 27 73 20 76 65 | 72 79 20 68 61 72 64 20 |hat's ve|ry hard |
|000003e0| 74 6f 20 63 68 61 6e 67 | 65 2e 0d 28 6d 61 6b 65 |to chang|e..(make|
|000003f0| 2d 66 6f 6e 74 2d 63 6f | 6d 6d 61 6e 64 20 28 3a |-font-co|mmand (:|
|00000400| 63 6f 6e 74 72 6f 6c 20 | 23 5c 42 29 20 3a 62 6f |control |#\B) :bo|
|00000410| 6c 64 29 0d 28 6d 61 6b | 65 2d 66 6f 6e 74 2d 63 |ld).(mak|e-font-c|
|00000420| 6f 6d 6d 61 6e 64 20 28 | 3a 63 6f 6e 74 72 6f 6c |ommand (|:control|
|00000430| 20 23 5c 49 29 20 3a 69 | 74 61 6c 69 63 29 0d 28 | #\I) :i|talic).(|
|00000440| 6d 61 6b 65 2d 66 6f 6e | 74 2d 63 6f 6d 6d 61 6e |make-fon|t-comman|
|00000450| 64 20 28 3a 63 6f 6e 74 | 72 6f 6c 20 23 5c 50 29 |d (:cont|rol #\P)|
|00000460| 20 3a 70 6c 61 69 6e 29 | 0d 0d 3b 3b 3b 20 4b 65 | :plain)|..;;; Ke|
|00000470| 79 20 72 65 62 69 6e 64 | 69 6e 67 73 20 2d 20 70 |y rebind|ings - p|
|00000480| 72 6f 76 69 73 69 6f 6e | 61 6c 0d 0d 3b 3b 3b 20 |rovision|al..;;; |
|00000490| 54 68 65 20 62 75 69 6c | 74 20 69 6e 20 4d 2d 29 |The buil|t in M-)|
|000004a0| 20 62 69 74 65 73 20 62 | 69 67 74 69 6d 65 2c 20 | bites b|igtime, |
|000004b0| 74 68 69 73 20 69 73 20 | 6d 6f 72 65 20 72 65 61 |this is |more rea|
|000004c0| 73 6f 6e 61 62 6c 65 2e | 0d 28 64 65 66 6d 65 74 |sonable.|.(defmet|
|000004d0| 68 6f 64 20 65 64 2d 6d | 6f 76 65 2d 6f 76 65 72 |hod ed-m|ove-over|
|000004e0| 2d 6f 72 2d 69 6e 73 65 | 72 74 2d 63 6c 6f 73 65 |-or-inse|rt-close|
|000004f0| 20 28 28 77 20 66 72 65 | 64 2d 6d 69 78 69 6e 29 | ((w fre|d-mixin)|
|00000500| 29 0d 20 20 28 6c 65 74 | 2a 20 28 28 62 75 66 20 |).  (let|* ((buf |
|00000510| 28 66 72 65 64 2d 62 75 | 66 66 65 72 20 77 29 29 |(fred-bu|ffer w))|
|00000520| 0d 20 20 20 20 20 20 20 | 20 20 28 70 6f 73 20 28 |.       |  (pos (|
|00000530| 62 75 66 66 65 72 2d 70 | 6f 73 69 74 69 6f 6e 20 |buffer-p|osition |
|00000540| 62 75 66 29 29 29 0d 20 | 20 20 20 28 6c 65 74 20 |buf))). |   (let |
|00000550| 28 28 6b 69 6c 6c 20 28 | 65 64 2d 6b 69 6c 6c 2d |((kill (|ed-kill-|
|00000560| 73 65 6c 65 63 74 69 6f | 6e 20 77 29 29 29 0d 20 |selectio|n w))). |
|00000570| 20 20 20 20 20 28 69 66 | 20 28 61 6e 64 20 28 6e |     (if| (and (n|
|00000580| 6f 74 20 6b 69 6c 6c 29 | 0d 20 20 20 20 20 20 20 |ot kill)|.       |
|00000590| 20 20 20 20 20 20 20 20 | 28 6e 6f 74 20 28 65 71 |        |(not (eq|
|000005a0| 20 70 6f 73 20 28 62 75 | 66 66 65 72 2d 73 69 7a | pos (bu|ffer-siz|
|000005b0| 65 20 62 75 66 29 29 29 | 0d 20 20 20 20 20 20 20 |e buf)))|.       |
|000005c0| 20 20 20 20 20 20 20 20 | 28 65 71 20 28 62 75 66 |        |(eq (buf|
|000005d0| 66 65 72 2d 63 68 61 72 | 20 62 75 66 29 20 23 5c |fer-char| buf) #\|
|000005e0| 29 29 29 0d 20 20 20 20 | 20 20 20 20 28 65 64 2d |))).    |    (ed-|
|000005f0| 66 6f 72 77 61 72 64 2d | 63 68 61 72 20 77 29 0d |forward-|char w).|
|00000600| 20 20 20 20 20 20 20 20 | 28 65 64 2d 69 6e 73 65 |        |(ed-inse|
|00000610| 72 74 2d 63 68 61 72 20 | 77 20 23 5c 29 29 29 29 |rt-char |w #\))))|
|00000620| 29 29 0d 0d 0d 3b 3b 3b | 20 44 69 74 74 6f 20 66 |))...;;;| Ditto f|
|00000630| 6f 72 20 74 68 69 73 0d | 28 64 65 66 6d 65 74 68 |or this.|(defmeth|
|00000640| 6f 64 20 65 64 2d 69 6e | 73 65 72 74 2d 70 61 72 |od ed-in|sert-par|
|00000650| 65 6e 73 20 28 28 77 20 | 66 72 65 64 2d 6d 69 78 |ens ((w |fred-mix|
|00000660| 69 6e 29 20 26 61 75 78 | 20 28 62 75 66 20 28 66 |in) &aux| (buf (f|
|00000670| 72 65 64 2d 62 75 66 66 | 65 72 20 77 29 29 29 0d |red-buff|er w))).|
|00000680| 20 20 28 6d 75 6c 74 69 | 70 6c 65 2d 76 61 6c 75 |  (multi|ple-valu|
|00000690| 65 2d 62 69 6e 64 20 28 | 73 74 61 72 74 20 65 6e |e-bind (|start en|
|000006a0| 64 29 20 28 73 65 6c 65 | 63 74 69 6f 6e 2d 72 61 |d) (sele|ction-ra|
|000006b0| 6e 67 65 20 77 29 0d 20 | 20 20 20 28 69 66 20 28 |nge w). |   (if (|
|000006c0| 3d 20 73 74 61 72 74 20 | 65 6e 64 29 0d 20 20 20 |= start |end).   |
|000006d0| 20 20 20 28 70 72 6f 67 | 6e 20 28 65 64 2d 69 6e |   (prog|n (ed-in|
|000006e0| 73 65 72 74 2d 77 69 74 | 68 2d 75 6e 64 6f 20 77 |sert-wit|h-undo w|
|000006f0| 20 22 28 29 22 29 0d 20 | 20 20 20 20 20 20 20 20 | "()"). |        |
|00000700| 20 20 20 20 28 6d 6f 76 | 65 2d 6d 61 72 6b 20 62 |    (mov|e-mark b|
|00000710| 75 66 20 2d 31 29 29 0d | 20 20 20 20 20 20 28 65 |uf -1)).|      (e|
|00000720| 64 2d 64 65 6c 69 6d 69 | 74 2d 73 65 6c 65 63 74 |d-delimi|t-select|
|00000730| 69 6f 6e 20 77 20 22 28 | 22 20 22 29 22 29 29 29 |ion w "(|" ")")))|
|00000740| 29 0d 0d 3b 28 63 6f 6d | 74 61 62 2d 73 65 74 2d |)..;(com|tab-set-|
|00000750| 6b 65 79 20 2a 63 6f 6d | 74 61 62 2a 20 23 5c 5b |key *com|tab* #\[|
|00000760| 20 27 65 64 2d 69 6e 73 | 65 72 74 2d 70 61 72 65 | 'ed-ins|ert-pare|
|00000770| 6e 73 29 0d 3b 28 63 6f | 6d 74 61 62 2d 73 65 74 |ns).;(co|mtab-set|
|00000780| 2d 6b 65 79 20 2a 63 6f | 6d 74 61 62 2a 20 23 5c |-key *co|mtab* #\|
|00000790| 5d 20 27 65 64 2d 6d 6f | 76 65 2d 6f 76 65 72 2d |] 'ed-mo|ve-over-|
|000007a0| 63 6c 6f 73 65 2d 61 6e | 64 2d 72 65 69 6e 64 65 |close-an|d-reinde|
|000007b0| 6e 74 29 0d 3b 28 63 6f | 6d 74 61 62 2d 73 65 74 |nt).;(co|mtab-set|
|000007c0| 2d 6b 65 79 20 2a 63 6f | 6d 74 61 62 2a 20 23 5c |-key *co|mtab* #\|
|000007d0| 28 20 27 65 64 2d 69 6e | 73 65 72 74 2d 5b 29 0d |( 'ed-in|sert-[).|
|000007e0| 3b 28 63 6f 6d 74 61 62 | 2d 73 65 74 2d 6b 65 79 |;(comtab|-set-key|
|000007f0| 20 2a 63 6f 6d 74 61 62 | 2a 20 23 5c 29 20 27 65 | *comtab|* #\) 'e|
|00000800| 64 2d 69 6e 73 65 72 74 | 2d 5d 29 0d 28 63 6f 6d |d-insert|-]).(com|
|00000810| 74 61 62 2d 73 65 74 2d | 6b 65 79 20 2a 63 6f 6d |tab-set-|key *com|
|00000820| 74 61 62 2a 20 23 5c 28 | 20 27 65 64 2d 69 6e 73 |tab* #\(| 'ed-ins|
|00000830| 65 72 74 2d 70 61 72 65 | 6e 73 29 0d 3b 28 63 6f |ert-pare|ns).;(co|
|00000840| 6d 74 61 62 2d 73 65 74 | 2d 6b 65 79 20 2a 63 6f |mtab-set|-key *co|
|00000850| 6d 74 61 62 2a 20 23 5c | 29 20 27 65 64 2d 6d 6f |mtab* #\|) 'ed-mo|
|00000860| 76 65 2d 6f 76 65 72 2d | 63 6c 6f 73 65 2d 61 6e |ve-over-|close-an|
|00000870| 64 2d 72 65 69 6e 64 65 | 6e 74 29 0d 28 63 6f 6d |d-reinde|nt).(com|
|00000880| 74 61 62 2d 73 65 74 2d | 6b 65 79 20 2a 63 6f 6d |tab-set-|key *com|
|00000890| 74 61 62 2a 20 23 5c 29 | 20 27 65 64 2d 6d 6f 76 |tab* #\)| 'ed-mov|
|000008a0| 65 2d 6f 76 65 72 2d 6f | 72 2d 69 6e 73 65 72 74 |e-over-o|r-insert|
|000008b0| 2d 63 6c 6f 73 65 29 0d | 0d 3b 3b 3b 20 46 72 6f |-close).|.;;; Fro|
|000008c0| 6d 20 61 73 73 6f 72 74 | 65 64 2d 66 72 65 64 2d |m assort|ed-fred-|
|000008d0| 63 6f 6d 6d 61 6e 64 73 | 2c 20 6d 6f 64 69 66 69 |commands|, modifi|
|000008e0| 65 64 20 74 6f 20 72 65 | 73 74 72 69 63 74 20 6f |ed to re|strict o|
|000008f0| 70 65 72 61 74 69 6f 6e | 73 20 74 6f 20 66 72 65 |peration|s to fre|
|00000900| 64 2d 77 69 6e 64 6f 77 | 73 2e 0d 3b 20 43 2d 58 |d-window|s..; C-X|
|00000910| 20 4f 20 6d 6f 76 65 73 | 20 74 6f 20 74 68 65 20 | O moves| to the |
|00000920| 6e 65 78 74 20 77 69 6e | 64 6f 77 20 74 68 61 74 |next win|dow that|
|00000930| 20 69 73 20 6e 6f 74 20 | 61 20 6c 69 73 74 65 6e | is not |a listen|
|00000940| 65 72 2e 0d 3b 20 43 2d | 58 20 4e 20 6d 6f 76 65 |er..; C-|X N move|
|00000950| 73 20 74 68 65 20 74 6f | 70 20 77 69 6e 64 6f 77 |s the to|p window|
|00000960| 20 74 6f 20 74 68 65 20 | 62 6f 74 74 6f 6d 2e 0d | to the |bottom..|
|00000970| 3b 20 43 2d 58 20 50 20 | 6d 6f 76 65 73 20 74 68 |; C-X P |moves th|
|00000980| 65 20 62 6f 74 74 6f 6d | 20 77 69 6e 64 6f 77 20 |e bottom| window |
|00000990| 74 6f 20 74 68 65 20 74 | 6f 70 2e 0d 28 64 65 66 |to the t|op..(def|
|000009a0| 6d 65 74 68 6f 64 20 65 | 64 2d 6f 74 68 65 72 2d |method e|d-other-|
|000009b0| 77 69 6e 64 6f 77 20 28 | 28 77 20 66 72 65 64 2d |window (|(w fred-|
|000009c0| 6d 69 78 69 6e 29 29 0d | 20 20 28 73 65 74 71 20 |mixin)).|  (setq |
|000009d0| 77 20 28 76 69 65 77 2d | 77 69 6e 64 6f 77 20 77 |w (view-|window w|
|000009e0| 29 29 0d 20 20 28 69 66 | 20 2a 6d 6f 64 61 6c 2d |)).  (if| *modal-|
|000009f0| 64 69 61 6c 6f 67 2d 6f | 6e 2d 74 6f 70 2a 0d 20 |dialog-o|n-top*. |
|00000a00| 20 20 20 28 65 64 2d 62 | 65 65 70 29 0d 20 20 20 |   (ed-b|eep).   |
|00000a10| 20 28 6c 65 74 20 28 28 | 6f 74 68 65 72 2d 77 69 | (let ((|other-wi|
|00000a20| 6e 64 6f 77 20 23 27 28 | 6c 61 6d 62 64 61 20 28 |ndow #'(|lambda (|
|00000a30| 77 69 6e 64 6f 77 29 0d | 20 20 20 20 20 20 20 20 |window).|        |
|00000a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a50| 20 20 20 20 28 75 6e 6c | 65 73 73 20 28 6f 72 20 |    (unl|ess (or |
|00000a60| 28 65 71 20 77 20 77 69 | 6e 64 6f 77 29 20 0d 20 |(eq w wi|ndow) . |
|00000a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a90| 20 20 20 20 20 20 20 28 | 74 79 70 65 70 20 77 69 |       (|typep wi|
|00000aa0| 6e 64 6f 77 20 27 6c 69 | 73 74 65 6e 65 72 29 0d |ndow 'li|stener).|
|00000ab0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ad0| 20 20 20 20 20 20 20 20 | 28 6e 6f 74 20 28 74 79 |        |(not (ty|
|00000ae0| 70 65 70 20 77 69 6e 64 | 6f 77 20 27 66 72 65 64 |pep wind|ow 'fred|
|00000af0| 2d 77 69 6e 64 6f 77 29 | 29 29 0d 20 20 20 20 20 |-window)|)).     |
|00000b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b10| 20 20 20 20 20 20 20 20 | 20 28 77 69 6e 64 6f 77 |        | (window|
|00000b20| 2d 73 65 6c 65 63 74 20 | 77 69 6e 64 6f 77 29 0d |-select |window).|
|00000b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 72 |        |      (r|
|00000b50| 65 74 75 72 6e 2d 66 72 | 6f 6d 20 65 64 2d 6f 74 |eturn-fr|om ed-ot|
|00000b60| 68 65 72 2d 77 69 6e 64 | 6f 77 20 77 69 6e 64 6f |her-wind|ow windo|
|00000b70| 77 29 29 29 29 29 0d 20 | 20 20 20 20 20 28 64 65 |w))))). |     (de|
|00000b80| 63 6c 61 72 65 20 28 64 | 79 6e 61 6d 69 63 2d 65 |clare (d|ynamic-e|
|00000b90| 78 74 65 6e 74 20 6f 74 | 68 65 72 2d 77 69 6e 64 |xtent ot|her-wind|
|00000ba0| 6f 77 29 29 0d 20 20 20 | 20 20 20 28 6d 61 70 2d |ow)).   |   (map-|
|00000bb0| 77 69 6e 64 6f 77 73 20 | 6f 74 68 65 72 2d 77 69 |windows |other-wi|
|00000bc0| 6e 64 6f 77 29 29 29 29 | 0d 0d 28 64 65 66 6d 65 |ndow))))|..(defme|
|00000bd0| 74 68 6f 64 20 65 64 2d | 6e 65 78 74 2d 77 69 6e |thod ed-|next-win|
|00000be0| 64 6f 77 20 28 28 77 20 | 66 72 65 64 2d 6d 69 78 |dow ((w |fred-mix|
|00000bf0| 69 6e 29 29 0d 20 20 28 | 73 65 74 2d 77 69 6e 64 |in)).  (|set-wind|
|00000c00| 6f 77 2d 6c 61 79 65 72 | 20 77 20 31 30 30 30 30 |ow-layer| w 10000|
|00000c10| 29 0d 3b 20 20 28 77 69 | 6e 64 6f 77 2d 73 65 6c |).;  (wi|ndow-sel|
|00000c20| 65 63 74 20 28 63 61 72 | 20 28 77 69 6e 64 6f 77 |ect (car| (window|
|00000c30| 73 20 3a 63 6c 61 73 73 | 20 27 66 72 65 64 2d 77 |s :class| 'fred-w|
|00000c40| 69 6e 64 6f 77 29 29 29 | 0d 20 20 29 0d 0d 28 64 |indow)))|.  )..(d|
|00000c50| 65 66 6d 65 74 68 6f 64 | 20 65 64 2d 70 72 65 76 |efmethod| ed-prev|
|00000c60| 69 6f 75 73 2d 77 69 6e | 64 6f 77 20 28 28 77 20 |ious-win|dow ((w |
|00000c70| 66 72 65 64 2d 6d 69 78 | 69 6e 29 29 0d 20 20 28 |fred-mix|in)).  (|
|00000c80| 6c 65 74 20 28 28 6c 61 | 73 74 20 28 63 61 72 20 |let ((la|st (car |
|00000c90| 28 6c 61 73 74 20 28 77 | 69 6e 64 6f 77 73 20 3a |(last (w|indows :|
|00000ca0| 63 6c 61 73 73 20 27 66 | 72 65 64 2d 77 69 6e 64 |class 'f|red-wind|
|00000cb0| 6f 77 29 29 29 29 29 0d | 20 20 20 20 28 77 68 65 |ow))))).|    (whe|
|00000cc0| 6e 20 6c 61 73 74 0d 20 | 20 20 20 20 20 28 77 69 |n last. |     (wi|
|00000cd0| 6e 64 6f 77 2d 73 65 6c | 65 63 74 20 6c 61 73 74 |ndow-sel|ect last|
|00000ce0| 29 29 29 29 0d 0d 28 63 | 6f 6d 74 61 62 2d 73 65 |))))..(c|omtab-se|
|00000cf0| 74 2d 6b 65 79 20 2a 63 | 6f 6e 74 72 6f 6c 2d 78 |t-key *c|ontrol-x|
|00000d00| 2d 63 6f 6d 74 61 62 2a | 20 27 28 23 5c 6f 29 20 |-comtab*| '(#\o) |
|00000d10| 27 65 64 2d 6f 74 68 65 | 72 2d 77 69 6e 64 6f 77 |'ed-othe|r-window|
|00000d20| 29 0d 28 63 6f 6d 74 61 | 62 2d 73 65 74 2d 6b 65 |).(comta|b-set-ke|
|00000d30| 79 20 2a 63 6f 6e 74 72 | 6f 6c 2d 78 2d 63 6f 6d |y *contr|ol-x-com|
|00000d40| 74 61 62 2a 20 27 28 23 | 5c 6e 29 20 27 65 64 2d |tab* '(#|\n) 'ed-|
|00000d50| 6e 65 78 74 2d 77 69 6e | 64 6f 77 29 0d 28 63 6f |next-win|dow).(co|
|00000d60| 6d 74 61 62 2d 73 65 74 | 2d 6b 65 79 20 2a 63 6f |mtab-set|-key *co|
|00000d70| 6e 74 72 6f 6c 2d 78 2d | 63 6f 6d 74 61 62 2a 20 |ntrol-x-|comtab* |
|00000d80| 27 28 23 5c 70 29 20 27 | 65 64 2d 70 72 65 76 69 |'(#\p) '|ed-previ|
|00000d90| 6f 75 73 2d 77 69 6e 64 | 6f 77 29 0d 0d 3b 20 43 |ous-wind|ow)..; C|
|00000da0| 2d 4d 2d 57 20 74 6f 67 | 67 6c 65 73 20 6c 69 6e |-M-W tog|gles lin|
|00000db0| 65 20 77 72 61 70 70 69 | 6e 67 2e 0d 28 64 65 66 |e wrappi|ng..(def|
|00000dc0| 75 6e 20 65 64 2d 74 6f | 67 67 6c 65 2d 77 72 61 |un ed-to|ggle-wra|
|00000dd0| 70 2d 70 20 28 77 29 0d | 20 20 28 73 65 74 66 20 |p-p (w).|  (setf |
|00000de0| 28 66 72 65 64 2d 77 72 | 61 70 2d 70 20 77 29 20 |(fred-wr|ap-p w) |
|00000df0| 28 6e 6f 74 20 28 66 72 | 65 64 2d 77 72 61 70 2d |(not (fr|ed-wrap-|
|00000e00| 70 20 77 29 29 29 29 0d | 0d 28 63 6f 6d 74 61 62 |p w)))).|.(comtab|
|00000e10| 2d 73 65 74 2d 6b 65 79 | 20 2a 63 6f 6d 74 61 62 |-set-key| *comtab|
|00000e20| 2a 20 27 28 3a 63 6f 6e | 74 72 6f 6c 20 3a 6d 65 |* '(:con|trol :me|
|00000e30| 74 61 20 23 5c 77 29 20 | 27 65 64 2d 74 6f 67 67 |ta #\w) |'ed-togg|
|00000e40| 6c 65 2d 77 72 61 70 2d | 70 29 0d 0d 28 64 65 66 |le-wrap-|p)..(def|
|00000e50| 63 6f 6e 73 74 61 6e 74 | 20 2a 77 73 70 26 63 72 |constant| *wsp&cr|
|00000e60| 2a 20 23 2e 28 6c 65 74 | 20 28 28 73 74 72 20 28 |* #.(let| ((str (|
|00000e70| 6d 61 6b 65 2d 73 74 72 | 69 6e 67 20 37 29 29 29 |make-str|ing 7)))|
|00000e80| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000e90| 20 20 20 20 20 20 20 20 | 20 20 20 28 73 65 74 2d |        |   (set-|
|00000ea0| 73 63 68 61 72 20 73 74 | 72 20 30 20 23 5c 53 70 |schar st|r 0 #\Sp|
|00000eb0| 61 63 65 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ace).   |        |
|00000ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00000ed0| 73 65 74 2d 73 63 68 61 | 72 20 73 74 72 20 31 20 |set-scha|r str 1 |
|00000ee0| 23 5c 5e 49 29 0d 20 20 | 20 20 20 20 20 20 20 20 |#\^I).  |        |
|00000ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f00| 28 73 65 74 2d 73 63 68 | 61 72 20 73 74 72 20 32 |(set-sch|ar str 2|
|00000f10| 20 23 5c 5e 4c 29 0d 20 | 20 20 20 20 20 20 20 20 | #\^L). |        |
|00000f20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f30| 20 28 73 65 74 2d 73 63 | 68 61 72 20 73 74 72 20 | (set-sc|har str |
|00000f40| 33 20 23 5c 5e 40 29 0d | 20 20 20 20 20 20 20 20 |3 #\^@).|        |
|00000f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f60| 20 20 28 73 65 74 2d 73 | 63 68 61 72 20 73 74 72 |  (set-s|char str|
|00000f70| 20 34 20 23 5c 5e 4a 29 | 0d 20 20 20 20 20 20 20 | 4 #\^J)|.       |
|00000f80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f90| 20 20 20 28 73 65 74 2d | 73 63 68 61 72 20 73 74 |   (set-|schar st|
|00000fa0| 72 20 35 20 28 25 63 6f | 64 65 2d 63 68 61 72 20 |r 5 (%co|de-char |
|00000fb0| 23 78 43 41 29 29 0d 20 | 20 20 20 20 20 20 20 20 |#xCA)). |        |
|00000fc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000fd0| 20 28 73 65 74 2d 73 63 | 68 61 72 20 73 74 72 20 | (set-sc|har str |
|00000fe0| 36 20 23 5c 6e 65 77 6c | 69 6e 65 29 0d 20 20 20 |6 #\newl|ine).   |
|00000ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001000| 20 20 20 20 20 20 20 73 | 74 72 29 29 0d 0d 28 64 |       s|tr))..(d|
|00001010| 65 66 6d 65 74 68 6f 64 | 20 70 61 72 61 67 72 61 |efmethod| paragra|
|00001020| 70 68 2d 62 6f 75 6e 64 | 73 20 28 28 77 20 66 72 |ph-bound|s ((w fr|
|00001030| 65 64 2d 6d 69 78 69 6e | 29 29 0d 20 20 28 6d 75 |ed-mixin|)).  (mu|
|00001040| 6c 74 69 70 6c 65 2d 76 | 61 6c 75 65 2d 62 69 6e |ltiple-v|alue-bin|
|00001050| 64 20 28 62 20 65 29 20 | 28 73 65 6c 65 63 74 69 |d (b e) |(selecti|
|00001060| 6f 6e 2d 72 61 6e 67 65 | 20 77 29 0d 20 20 20 20 |on-range| w).    |
|00001070| 28 77 68 65 6e 20 28 65 | 71 20 62 20 65 29 0d 20 |(when (e|q b e). |
|00001080| 20 20 20 20 20 28 6c 65 | 74 2a 20 28 28 62 75 66 |     (le|t* ((buf|
|00001090| 20 28 66 72 65 64 2d 62 | 75 66 66 65 72 20 77 29 | (fred-b|uffer w)|
|000010a0| 29 29 0d 20 20 20 20 20 | 20 20 20 28 73 65 74 71 |)).     |   (setq|
|000010b0| 20 62 20 28 62 75 66 66 | 65 72 2d 62 61 63 6b 77 | b (buff|er-backw|
|000010c0| 61 72 64 2d 66 69 6e 64 | 2d 63 68 61 72 20 62 75 |ard-find|-char bu|
|000010d0| 66 20 23 5c 6e 65 77 6c | 69 6e 65 29 29 0d 20 20 |f #\newl|ine)).  |
|000010e0| 20 20 20 20 20 20 28 69 | 66 20 62 0d 20 20 20 20 |      (i|f b.    |
|000010f0| 20 20 20 20 20 20 28 6c | 6f 6f 70 0d 20 20 20 20 |      (l|oop.    |
|00001100| 20 20 20 20 20 20 20 20 | 28 69 66 20 28 3c 3d 20 |        |(if (<= |
|00001110| 62 20 30 29 20 28 72 65 | 74 75 72 6e 29 29 0d 20 |b 0) (re|turn)). |
|00001120| 20 20 20 20 20 20 20 20 | 20 20 20 28 6c 65 74 20 |        |   (let |
|00001130| 28 28 62 32 20 28 62 75 | 66 66 65 72 2d 62 61 63 |((b2 (bu|ffer-bac|
|00001140| 6b 77 61 72 64 2d 66 69 | 6e 64 2d 63 68 61 72 20 |kward-fi|nd-char |
|00001150| 62 75 66 20 23 5c 6e 65 | 77 6c 69 6e 65 20 62 20 |buf #\ne|wline b |
|00001160| 30 29 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |0))).   |        |
|00001170| 20 20 20 28 75 6e 6c 65 | 73 73 20 62 32 20 28 72 |   (unle|ss b2 (r|
|00001180| 65 74 75 72 6e 20 28 73 | 65 74 71 20 62 20 30 29 |eturn (s|etq b 0)|
|00001190| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)).     |        |
|000011a0| 20 28 75 6e 6c 65 73 73 | 20 28 62 75 66 66 65 72 | (unless| (buffer|
|000011b0| 2d 66 6f 72 77 61 72 64 | 2d 66 69 6e 64 2d 6e 6f |-forward|-find-no|
|000011c0| 74 2d 63 68 61 72 20 62 | 75 66 20 2a 77 73 70 26 |t-char b|uf *wsp&|
|000011d0| 63 72 2a 20 62 32 20 62 | 29 0d 20 20 20 20 20 20 |cr* b2 b|).      |
|000011e0| 20 20 20 20 20 20 20 20 | 20 20 28 72 65 74 75 72 |        |  (retur|
|000011f0| 6e 20 28 69 6e 63 66 20 | 62 29 29 29 0d 20 20 20 |n (incf |b))).   |
|00001200| 20 20 20 20 20 20 20 20 | 20 20 20 28 73 65 74 71 |        |   (setq|
|00001210| 20 62 20 62 32 29 29 29 | 0d 20 20 20 20 20 20 20 | b b2)))|.       |
|00001220| 20 20 20 28 73 65 74 71 | 20 62 20 30 29 29 0d 20 |   (setq| b 0)). |
|00001230| 20 20 20 20 20 20 20 28 | 73 65 74 71 20 65 20 28 |       (|setq e (|
|00001240| 62 75 66 66 65 72 2d 66 | 6f 72 77 61 72 64 2d 66 |buffer-f|orward-f|
|00001250| 69 6e 64 2d 63 68 61 72 | 20 62 75 66 20 23 5c 6e |ind-char| buf #\n|
|00001260| 65 77 6c 69 6e 65 29 29 | 0d 20 20 20 20 20 20 20 |ewline))|.       |
|00001270| 20 28 69 66 20 65 0d 20 | 20 20 20 20 20 20 20 20 | (if e. |        |
|00001280| 20 28 6c 6f 6f 70 0d 20 | 20 20 20 20 20 20 20 20 | (loop. |        |
|00001290| 20 20 20 28 69 66 20 28 | 3e 3d 20 65 20 28 62 75 |   (if (|>= e (bu|
|000012a0| 66 66 65 72 2d 73 69 7a | 65 20 62 75 66 29 29 20 |ffer-siz|e buf)) |
|000012b0| 28 72 65 74 75 72 6e 29 | 29 0d 20 20 20 20 20 20 |(return)|).      |
|000012c0| 20 20 20 20 20 20 28 6c | 65 74 20 28 28 65 32 20 |      (l|et ((e2 |
|000012d0| 28 62 75 66 66 65 72 2d | 66 6f 72 77 61 72 64 2d |(buffer-|forward-|
|000012e0| 66 69 6e 64 2d 63 68 61 | 72 20 62 75 66 20 23 5c |find-cha|r buf #\|
|000012f0| 6e 65 77 6c 69 6e 65 20 | 65 29 29 29 0d 20 20 20 |newline |e))).   |
|00001300| 20 20 20 20 20 20 20 20 | 20 20 20 28 75 6e 6c 65 |        |   (unle|
|00001310| 73 73 20 65 32 20 28 72 | 65 74 75 72 6e 20 28 73 |ss e2 (r|eturn (s|
|00001320| 65 74 71 20 65 20 28 62 | 75 66 66 65 72 2d 73 69 |etq e (b|uffer-si|
|00001330| 7a 65 20 62 75 66 29 29 | 29 29 0d 20 20 20 20 20 |ze buf))|)).     |
|00001340| 20 20 20 20 20 20 20 20 | 20 28 75 6e 6c 65 73 73 |        | (unless|
|00001350| 20 28 62 75 66 66 65 72 | 2d 66 6f 72 77 61 72 64 | (buffer|-forward|
|00001360| 2d 66 69 6e 64 2d 6e 6f | 74 2d 63 68 61 72 20 62 |-find-no|t-char b|
|00001370| 75 66 20 2a 77 73 70 26 | 63 72 2a 20 65 20 65 32 |uf *wsp&|cr* e e2|
|00001380| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00001390| 20 20 28 72 65 74 75 72 | 6e 20 28 64 65 63 66 20 |  (retur|n (decf |
|000013a0| 65 29 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |e))).   |        |
|000013b0| 20 20 20 28 73 65 74 71 | 20 65 20 65 32 29 29 29 |   (setq| e e2)))|
|000013c0| 0d 20 20 20 20 20 20 20 | 20 20 20 28 73 65 74 71 |.       |   (setq|
|000013d0| 20 65 20 28 62 75 66 66 | 65 72 2d 73 69 7a 65 20 | e (buff|er-size |
|000013e0| 62 75 66 29 29 29 29 29 | 0d 20 20 20 20 28 76 61 |buf)))))|.    (va|
|000013f0| 6c 75 65 73 20 62 20 65 | 29 29 29 0d 0d 28 64 65 |lues b e|)))..(de|
|00001400| 66 6d 65 74 68 6f 64 20 | 65 64 2d 66 69 6c 6c 2d |fmethod |ed-fill-|
|00001410| 70 61 72 61 67 72 61 70 | 68 20 28 28 77 20 66 72 |paragrap|h ((w fr|
|00001420| 65 64 2d 6d 69 78 69 6e | 29 29 0d 20 20 28 6d 75 |ed-mixin|)).  (mu|
|00001430| 6c 74 69 70 6c 65 2d 76 | 61 6c 75 65 2d 62 69 6e |ltiple-v|alue-bin|
|00001440| 64 20 28 62 20 65 29 20 | 28 70 61 72 61 67 72 61 |d (b e) |(paragra|
|00001450| 70 68 2d 62 6f 75 6e 64 | 73 20 77 29 0d 20 20 20 |ph-bound|s w).   |
|00001460| 20 28 75 6e 6c 65 73 73 | 20 28 65 71 20 62 20 65 | (unless| (eq b e|
|00001470| 29 0d 20 20 20 20 20 20 | 28 6c 65 74 2a 20 28 28 |).      |(let* ((|
|00001480| 62 75 66 20 28 66 72 65 | 64 2d 62 75 66 66 65 72 |buf (fre|d-buffer|
|00001490| 20 77 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 | w)).   |        |
|000014a0| 20 20 28 6d 61 72 67 69 | 6e 20 28 6f 72 20 28 76 |  (margi|n (or (v|
|000014b0| 69 65 77 2d 67 65 74 20 | 77 20 27 66 69 6c 6c 2d |iew-get |w 'fill-|
|000014c0| 6d 61 72 67 69 6e 29 20 | 28 2d 20 28 70 6f 69 6e |margin) |(- (poin|
|000014d0| 74 2d 68 20 28 76 69 65 | 77 2d 73 69 7a 65 20 77 |t-h (vie|w-size w|
|000014e0| 29 29 20 37 32 29 29 29 | 0d 20 20 20 20 20 20 20 |)) 72)))|.       |
|000014f0| 20 20 20 20 20 20 28 70 | 72 65 66 69 78 20 28 76 |      (p|refix (v|
|00001500| 69 65 77 2d 67 65 74 20 | 77 20 27 66 69 6c 6c 2d |iew-get |w 'fill-|
|00001510| 70 72 65 66 69 78 29 29 | 0d 20 20 20 20 20 20 20 |prefix))|.       |
|00001520| 20 20 20 20 20 20 28 62 | 6d 61 72 6b 20 28 6d 61 |      (b|mark (ma|
|00001530| 6b 65 2d 6d 61 72 6b 20 | 62 75 66 20 62 20 74 29 |ke-mark |buf b t)|
|00001540| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |).      |       (|
|00001550| 65 6d 61 72 6b 20 28 6d | 61 6b 65 2d 6d 61 72 6b |emark (m|ake-mark|
|00001560| 20 62 75 66 20 65 29 29 | 0d 20 20 20 20 20 20 20 | buf e))|.       |
|00001570| 20 20 20 20 20 20 28 73 | 74 72 69 6e 67 20 28 62 |      (s|tring (b|
|00001580| 75 66 66 65 72 2d 73 75 | 62 73 74 72 69 6e 67 20 |uffer-su|bstring |
|00001590| 62 75 66 20 62 20 65 29 | 29 0d 20 20 20 20 20 20 |buf b e)|).      |
|000015a0| 20 20 20 20 20 20 20 28 | 73 74 79 6c 65 20 28 62 |       (|style (b|
|000015b0| 75 66 66 65 72 2d 67 65 | 74 2d 73 74 79 6c 65 20 |uffer-ge|t-style |
|000015c0| 62 75 66 20 62 20 65 29 | 29 0d 20 20 20 20 20 20 |buf b e)|).      |
|000015d0| 20 20 20 20 20 20 20 70 | 20 6c 61 73 74 2d 77 6f |       p| last-wo|
|000015e0| 72 64 2d 65 6e 64 20 77 | 73 70 2d 65 6e 64 20 64 |rd-end w|sp-end d|
|000015f0| 6f 6e 65 3f 29 0d 20 20 | 20 20 20 20 20 20 28 75 |one?).  |      (u|
|00001600| 6e 77 69 6e 64 2d 70 72 | 6f 74 65 63 74 0d 20 20 |nwind-pr|otect.  |
|00001610| 20 20 20 20 20 20 20 20 | 28 70 72 6f 67 6e 0d 20 |        |(progn. |
|00001620| 20 20 20 20 20 20 20 20 | 20 20 20 28 73 65 74 71 |        |   (setq|
|00001630| 20 65 20 28 6d 61 6b 65 | 2d 6d 61 72 6b 20 62 75 | e (make|-mark bu|
|00001640| 66 20 65 29 29 0d 20 20 | 20 20 20 20 20 20 20 20 |f e)).  |        |
|00001650| 20 20 28 73 65 74 71 20 | 70 20 62 29 0d 20 20 20 |  (setq |p b).   |
|00001660| 20 20 20 20 20 20 20 20 | 20 28 6c 6f 6f 70 0d 20 |        | (loop. |
|00001670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 73 65 |        |     (se|
|00001680| 74 71 20 70 20 28 62 75 | 66 66 65 72 2d 66 6f 72 |tq p (bu|ffer-for|
|00001690| 77 61 72 64 2d 66 69 6e | 64 2d 63 68 61 72 20 62 |ward-fin|d-char b|
|000016a0| 75 66 20 2a 77 73 70 26 | 63 72 2a 20 70 20 65 29 |uf *wsp&|cr* p e)|
|000016b0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|000016c0| 28 69 66 20 70 20 0d 20 | 20 20 20 20 20 20 20 20 |(if p . |        |
|000016d0| 20 20 20 20 20 20 20 28 | 70 72 6f 67 6e 0d 20 20 |       (|progn.  |
|000016e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000016f0| 28 73 65 74 71 20 77 73 | 70 2d 65 6e 64 20 28 62 |(setq ws|p-end (b|
|00001700| 75 66 66 65 72 2d 66 6f | 72 77 61 72 64 2d 66 69 |uffer-fo|rward-fi|
|00001710| 6e 64 2d 6e 6f 74 2d 63 | 68 61 72 20 62 75 66 20 |nd-not-c|har buf |
|00001720| 2a 77 73 70 26 63 72 2a | 20 70 20 65 29 0d 20 20 |*wsp&cr*| p e).  |
|00001730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001740| 20 20 20 20 20 20 70 20 | 28 31 2d 20 70 29 0d 20 |      p |(1- p). |
|00001750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001760| 20 20 20 20 20 20 20 77 | 73 70 2d 65 6e 64 20 28 |       w|sp-end (|
|00001770| 69 66 20 77 73 70 2d 65 | 6e 64 20 28 31 2d 20 77 |if wsp-e|nd (1- w|
|00001780| 73 70 2d 65 6e 64 29 20 | 65 29 29 0d 20 20 20 20 |sp-end) |e)).    |
|00001790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 62 |        |      (b|
|000017a0| 75 66 66 65 72 2d 64 65 | 6c 65 74 65 20 62 75 66 |uffer-de|lete buf|
|000017b0| 20 70 20 77 73 70 2d 65 | 6e 64 29 0d 20 20 20 20 | p wsp-e|nd).    |
|000017c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 62 |        |      (b|
|000017d0| 75 66 66 65 72 2d 69 6e | 73 65 72 74 20 62 75 66 |uffer-in|sert buf|
|000017e0| 20 22 20 22 20 70 29 29 | 0d 20 20 20 20 20 20 20 | " " p))|.       |
|000017f0| 20 20 20 20 20 20 20 20 | 20 28 73 65 74 71 20 70 |        | (setq p|
|00001800| 20 28 62 75 66 66 65 72 | 2d 70 6f 73 69 74 69 6f | (buffer|-positio|
|00001810| 6e 20 65 29 20 77 73 70 | 2d 65 6e 64 20 70 20 64 |n e) wsp|-end p d|
|00001820| 6f 6e 65 3f 20 74 29 29 | 0d 20 20 20 20 20 20 20 |one? t))|.       |
|00001830| 20 20 20 20 20 20 20 28 | 69 66 20 28 3e 20 28 62 |       (|if (> (b|
|00001840| 75 66 66 65 72 2d 73 74 | 72 69 6e 67 2d 77 69 64 |uffer-st|ring-wid|
|00001850| 74 68 20 62 75 66 20 62 | 20 70 29 20 6d 61 72 67 |th buf b| p) marg|
|00001860| 69 6e 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |in).    |        |
|00001870| 20 20 20 20 28 70 72 6f | 67 6e 0d 20 20 20 20 20 |    (pro|gn.     |
|00001880| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 75 6e |        |     (un|
|00001890| 6c 65 73 73 20 6c 61 73 | 74 2d 77 6f 72 64 2d 65 |less las|t-word-e|
|000018a0| 6e 64 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |nd.     |        |
|000018b0| 20 20 20 20 20 20 20 28 | 69 66 20 64 6f 6e 65 3f |       (|if done?|
|000018c0| 20 28 72 65 74 75 72 6e | 29 29 0d 20 20 20 20 20 | (return|)).     |
|000018d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|000018e0| 73 65 74 71 20 6c 61 73 | 74 2d 77 6f 72 64 2d 65 |setq las|t-word-e|
|000018f0| 6e 64 20 70 29 29 0d 20 | 20 20 20 20 20 20 20 20 |nd p)). |        |
|00001900| 20 20 20 20 20 20 20 20 | 20 28 62 75 66 66 65 72 |        | (buffer|
|00001910| 2d 64 65 6c 65 74 65 20 | 62 75 66 20 6c 61 73 74 |-delete |buf last|
|00001920| 2d 77 6f 72 64 2d 65 6e | 64 20 28 31 2b 20 6c 61 |-word-en|d (1+ la|
|00001930| 73 74 2d 77 6f 72 64 2d | 65 6e 64 29 29 0d 20 20 |st-word-|end)).  |
|00001940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001950| 28 62 75 66 66 65 72 2d | 69 6e 73 65 72 74 20 62 |(buffer-|insert b|
|00001960| 75 66 20 23 5c 6e 65 77 | 6c 69 6e 65 20 6c 61 73 |uf #\new|line las|
|00001970| 74 2d 77 6f 72 64 2d 65 | 6e 64 29 0d 20 20 20 20 |t-word-e|nd).    |
|00001980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 73 |        |      (s|
|00001990| 65 74 71 20 62 20 28 31 | 2b 20 6c 61 73 74 2d 77 |etq b (1|+ last-w|
|000019a0| 6f 72 64 2d 65 6e 64 29 | 0d 20 20 20 20 20 20 20 |ord-end)|.       |
|000019b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000019c0| 20 70 20 62 29 0d 20 20 | 20 20 20 20 20 20 20 20 | p b).  |        |
|000019d0| 20 20 20 20 20 20 20 20 | 28 69 66 20 28 3e 3d 20 |        |(if (>= |
|000019e0| 70 20 28 62 75 66 66 65 | 72 2d 70 6f 73 69 74 69 |p (buffe|r-positi|
|000019f0| 6f 6e 20 65 29 29 20 28 | 72 65 74 75 72 6e 29 29 |on e)) (|return))|
|00001a00| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001a10| 20 20 20 28 77 68 65 6e | 20 70 72 65 66 69 78 0d |   (when| prefix.|
|00001a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001a30| 20 20 20 20 28 62 75 66 | 66 65 72 2d 69 6e 73 65 |    (buf|fer-inse|
|00001a40| 72 74 2d 77 69 74 68 2d | 73 74 79 6c 65 20 62 75 |rt-with-|style bu|
|00001a50| 66 20 28 63 61 72 20 70 | 72 65 66 69 78 29 20 28 |f (car p|refix) (|
|00001a60| 63 64 72 20 70 72 65 66 | 69 78 29 20 62 29 0d 20 |cdr pref|ix) b). |
|00001a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001a80| 20 20 20 28 69 6e 63 66 | 20 70 20 28 6c 65 6e 67 |   (incf| p (leng|
|00001a90| 74 68 20 28 63 61 72 20 | 70 72 65 66 69 78 29 29 |th (car |prefix))|
|00001aa0| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)).     |        |
|00001ab0| 20 20 20 20 20 28 73 65 | 74 71 20 6c 61 73 74 2d |     (se|tq last-|
|00001ac0| 77 6f 72 64 2d 65 6e 64 | 20 6e 69 6c 29 29 0d 20 |word-end| nil)). |
|00001ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00001ae0| 70 72 6f 67 6e 0d 20 20 | 20 20 20 20 20 20 20 20 |progn.  |        |
|00001af0| 20 20 20 20 20 20 20 20 | 28 73 65 74 71 20 6c 61 |        |(setq la|
|00001b00| 73 74 2d 77 6f 72 64 2d | 65 6e 64 20 70 29 0d 20 |st-word-|end p). |
|00001b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001b20| 20 28 69 6e 63 66 20 70 | 29 29 29 0d 20 20 20 20 | (incf p|))).    |
|00001b30| 20 20 20 20 20 20 20 20 | 20 20 28 69 66 20 64 6f |        |  (if do|
|00001b40| 6e 65 3f 20 28 72 65 74 | 75 72 6e 29 29 29 29 0d |ne? (ret|urn)))).|
|00001b50| 20 20 20 20 20 20 20 20 | 20 20 28 73 65 74 75 70 |        |  (setup|
|00001b60| 2d 75 6e 64 6f 20 77 20 | 23 27 28 6c 61 6d 62 64 |-undo w |#'(lambd|
|00001b70| 61 20 28 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |a ().   |        |
|00001b80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001b90| 20 28 62 75 66 66 65 72 | 2d 64 65 6c 65 74 65 20 | (buffer|-delete |
|00001ba0| 62 6d 61 72 6b 20 28 62 | 75 66 66 65 72 2d 70 6f |bmark (b|uffer-po|
|00001bb0| 73 69 74 69 6f 6e 20 62 | 6d 61 72 6b 29 20 28 62 |sition b|mark) (b|
|00001bc0| 75 66 66 65 72 2d 70 6f | 73 69 74 69 6f 6e 20 65 |uffer-po|sition e|
|00001bd0| 6d 61 72 6b 29 29 0d 20 | 20 20 20 20 20 20 20 20 |mark)). |        |
|00001be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001bf0| 20 20 20 28 62 75 66 66 | 65 72 2d 69 6e 73 65 72 |   (buff|er-inser|
|00001c00| 74 2d 77 69 74 68 2d 73 | 74 79 6c 65 20 62 6d 61 |t-with-s|tyle bma|
|00001c10| 72 6b 20 73 74 72 69 6e | 67 20 73 74 79 6c 65 29 |rk strin|g style)|
|00001c20| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001c30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 66 72 |        |     (fr|
|00001c40| 65 64 2d 75 70 64 61 74 | 65 20 77 29 29 29 29 29 |ed-updat|e w)))))|
|00001c50| 29 29 29 0d 0d 28 63 6f | 6d 74 61 62 2d 73 65 74 |)))..(co|mtab-set|
|00001c60| 2d 6b 65 79 20 2a 63 6f | 6d 74 61 62 2a 20 27 28 |-key *co|mtab* '(|
|00001c70| 3a 6d 65 74 61 20 23 5c | 71 29 20 27 65 64 2d 66 |:meta #\|q) 'ed-f|
|00001c80| 69 6c 6c 2d 70 61 72 61 | 67 72 61 70 68 29 0d 0d |ill-para|graph)..|
|00001c90| 3b 3b 3b 20 41 20 62 65 | 74 74 65 72 20 61 75 74 |;;; A be|tter aut|
|00001ca0| 6f 20 66 69 6c 6c 20 74 | 68 61 6e 20 61 70 70 6c |o fill t|han appl|
|00001cb0| 65 20 70 72 6f 76 69 64 | 65 73 20 28 62 75 74 20 |e provid|es (but |
|00001cc0| 61 64 61 70 74 65 64 20 | 66 72 6f 6d 20 69 74 29 |adapted |from it)|
|00001cd0| 2e 0d 3b 3b 3b 20 44 65 | 61 6c 73 20 77 69 74 68 |..;;; De|als with|
|00001ce0| 20 76 61 72 69 61 62 6c | 65 20 77 69 64 74 68 20 | variabl|e width |
|00001cf0| 66 6f 6e 74 73 2e 0d 3b | 3b 3b 20 4d 69 73 73 69 |fonts..;|;; Missi|
|00001d00| 6e 67 20 28 63 61 75 73 | 65 20 49 20 64 6f 6e 27 |ng (caus|e I don'|
|00001d10| 74 20 63 61 72 65 20 6d | 75 63 68 29 3a 20 20 66 |t care m|uch):  f|
|00001d20| 69 6c 6c 20 70 72 65 66 | 69 78 2c 20 66 69 6c 6c |ill pref|ix, fill|
|00001d30| 69 6e 67 20 74 6f 20 6f | 74 68 65 72 20 74 68 61 |ing to o|ther tha|
|00001d40| 6e 20 77 69 6e 64 6f 77 | 20 73 69 7a 65 20 0d 28 |n window| size .(|
|00001d50| 64 65 66 75 6e 20 61 75 | 74 6f 2d 66 69 6c 6c 2d |defun au|to-fill-|
|00001d60| 6f 72 2d 69 6e 73 65 72 | 74 20 28 77 29 0d 20 20 |or-inser|t (w).  |
|00001d70| 28 6c 65 74 2a 20 28 28 | 62 75 66 20 28 66 72 65 |(let* ((|buf (fre|
|00001d80| 64 2d 62 75 66 66 65 72 | 20 77 29 29 0d 20 20 20 |d-buffer| w)).   |
|00001d90| 20 20 20 20 20 20 28 6d | 61 72 67 69 6e 20 28 6f |      (m|argin (o|
|00001da0| 72 20 28 76 69 65 77 2d | 67 65 74 20 77 20 27 66 |r (view-|get w 'f|
|00001db0| 69 6c 6c 2d 6d 61 72 67 | 69 6e 29 20 28 70 6f 69 |ill-marg|in) (poi|
|00001dc0| 6e 74 2d 68 20 28 76 69 | 65 77 2d 73 69 7a 65 20 |nt-h (vi|ew-size |
|00001dd0| 77 29 29 29 29 0d 20 20 | 20 20 20 20 20 20 20 28 |w)))).  |       (|
|00001de0| 62 65 67 20 28 6f 72 20 | 28 63 63 6c 3a 3a 62 75 |beg (or |(ccl::bu|
|00001df0| 66 66 65 72 2d 62 61 63 | 6b 77 61 72 64 2d 66 69 |ffer-bac|kward-fi|
|00001e00| 6e 64 2d 63 68 61 72 20 | 62 75 66 20 23 5c 4e 65 |nd-char |buf #\Ne|
|00001e10| 77 6c 69 6e 65 29 20 30 | 29 29 0d 20 20 20 20 20 |wline) 0|)).     |
|00001e20| 20 20 20 20 28 68 65 72 | 65 20 28 62 75 66 66 65 |    (her|e (buffe|
|00001e30| 72 2d 70 6f 73 69 74 69 | 6f 6e 20 62 75 66 29 29 |r-positi|on buf))|
|00001e40| 29 0d 20 20 20 20 28 77 | 68 65 6e 20 28 3e 20 28 |).    (w|hen (> (|
|00001e50| 63 63 6c 3a 3a 62 75 66 | 66 65 72 2d 73 74 72 69 |ccl::buf|fer-stri|
|00001e60| 6e 67 2d 77 69 64 74 68 | 20 62 75 66 20 62 65 67 |ng-width| buf beg|
|00001e70| 20 68 65 72 65 29 20 6d | 61 72 67 69 6e 29 0d 20 | here) m|argin). |
|00001e80| 20 20 20 20 20 28 64 6f | 20 28 28 62 72 65 61 6b |     (do| ((break|
|00001e90| 2d 70 6f 73 20 68 65 72 | 65 20 0d 20 20 20 20 20 |-pos her|e .     |
|00001ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001eb0| 20 28 62 75 66 66 65 72 | 2d 63 68 61 72 2d 70 6f | (buffer|-char-po|
|00001ec0| 73 20 62 75 66 20 63 63 | 6c 3a 3a 2a 77 73 70 26 |s buf cc|l::*wsp&|
|00001ed0| 63 72 2a 20 3a 73 74 61 | 72 74 20 30 20 3a 65 6e |cr* :sta|rt 0 :en|
|00001ee0| 64 20 62 72 65 61 6b 2d | 70 6f 73 0d 20 20 20 20 |d break-|pos.    |
|00001ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001f10| 20 20 20 3a 66 72 6f 6d | 2d 65 6e 64 20 74 29 29 |   :from|-end t))|
|00001f20| 29 0d 20 20 20 20 20 20 | 20 20 20 20 28 28 6f 72 |).      |    ((or|
|00001f30| 20 28 6e 75 6c 6c 20 62 | 72 65 61 6b 2d 70 6f 73 | (null b|reak-pos|
|00001f40| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00001f50| 20 28 3c 3d 20 28 63 63 | 6c 3a 3a 62 75 66 66 65 | (<= (cc|l::buffe|
|00001f60| 72 2d 73 74 72 69 6e 67 | 2d 77 69 64 74 68 20 62 |r-string|-width b|
|00001f70| 75 66 20 62 65 67 20 62 | 72 65 61 6b 2d 70 6f 73 |uf beg b|reak-pos|
|00001f80| 29 20 6d 61 72 67 69 6e | 29 29 0d 20 20 20 20 20 |) margin|)).     |
|00001f90| 20 20 20 20 20 20 28 77 | 68 65 6e 20 62 72 65 61 |      (w|hen brea|
|00001fa0| 6b 2d 70 6f 73 0d 20 20 | 20 20 20 20 20 20 20 20 |k-pos.  |        |
|00001fb0| 20 20 20 28 62 75 66 66 | 65 72 2d 63 68 61 72 2d |   (buff|er-char-|
|00001fc0| 72 65 70 6c 61 63 65 20 | 62 75 66 20 23 5c 72 65 |replace |buf #\re|
|00001fd0| 74 75 72 6e 20 62 72 65 | 61 6b 2d 70 6f 73 29 0d |turn bre|ak-pos).|
|00001fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 73 65 |        |     (se|
|00001ff0| 74 2d 66 72 65 64 2d 68 | 73 63 72 6f 6c 6c 20 77 |t-fred-h|scroll w|
|00002000| 20 30 29 0d 3b 20 20 20 | 20 20 20 20 20 20 20 20 | 0).;   |        |
|00002010| 20 20 28 65 64 2d 69 6e | 64 65 6e 74 2d 66 6f 72 |  (ed-in|dent-for|
|00002020| 2d 6c 69 73 70 20 77 20 | 28 31 2b 20 62 72 65 61 |-lisp w |(1+ brea|
|00002030| 6b 2d 70 6f 73 29 29 0d | 20 20 20 20 20 20 20 20 |k-pos)).|        |
|00002040| 20 20 20 20 20 29 29 29 | 29 0d 20 20 20 20 28 69 |     )))|).    (i|
|00002050| 66 20 28 65 71 6c 20 2a | 63 75 72 72 65 6e 74 2d |f (eql *|current-|
|00002060| 63 68 61 72 61 63 74 65 | 72 2a 20 23 5c 73 70 61 |characte|r* #\spa|
|00002070| 63 65 29 0d 20 20 20 20 | 20 20 28 69 6e 74 65 72 |ce).    |  (inter|
|00002080| 61 63 74 69 76 65 2d 61 | 72 67 6c 69 73 74 20 77 |active-a|rglist w|
|00002090| 29 0d 20 20 20 20 20 20 | 28 65 64 2d 73 65 6c 66 |).      |(ed-self|
|000020a0| 2d 69 6e 73 65 72 74 20 | 77 29 29 29 29 0d 0d 3b |-insert |w))))..;|
|000020b0| 20 28 63 6f 6d 74 61 62 | 2d 73 65 74 2d 6b 65 79 | (comtab|-set-key|
|000020c0| 20 2a 63 6f 6d 74 61 62 | 2a 20 23 5c 53 70 61 63 | *comtab|* #\Spac|
|000020d0| 65 20 27 61 75 74 6f 2d | 66 69 6c 6c 2d 6f 72 2d |e 'auto-|fill-or-|
|000020e0| 69 6e 73 65 72 74 29 0d | 0d 3b 3b 3b 20 4b 65 79 |insert).|.;;; Key|
|000020f0| 62 6f 61 72 64 20 4d 61 | 63 72 6f 73 0d 3b 3b 3b |board Ma|cros.;;;|
|00002100| 20 54 6f 64 6f 3a 20 20 | 65 72 72 6f 72 20 68 61 | Todo:  |error ha|
|00002110| 6e 64 6c 69 6e 67 20 28 | 73 68 6f 75 6c 64 20 74 |ndling (|should t|
|00002120| 65 72 6d 69 6e 61 74 65 | 20 65 78 65 63 75 74 69 |erminate| executi|
|00002130| 6f 6e 29 2c 0d 3b 3b 3b | 20 20 20 20 20 20 20 20 |on),.;;;|        |
|00002140| 75 73 65 72 20 69 6e 64 | 69 63 61 74 69 6f 6e 73 |user ind|ications|
|00002150| 2c 20 6e 65 73 74 65 64 | 20 6d 61 63 72 6f 73 2c |, nested| macros,|
|00002160| 20 6e 61 6d 65 64 20 6d | 61 63 72 6f 73 0d 3b 3b | named m|acros.;;|
|00002170| 3b 20 20 20 69 2d 73 65 | 61 72 63 68 20 64 6f 65 |;   i-se|arch doe|
|00002180| 73 6e 27 74 20 77 6f 72 | 6b 20 77 65 6c 6c 20 77 |sn't wor|k well w|
|00002190| 69 74 68 20 74 68 69 73 | 3a 20 72 65 64 69 73 70 |ith this|: redisp|
|000021a0| 6c 61 79 73 20 74 6f 6f | 20 6d 75 63 68 2c 20 65 |lays too| much, e|
|000021b0| 72 72 6f 72 73 20 64 6f | 6e 27 74 20 73 69 67 6e |rrors do|n't sign|
|000021c0| 61 6c 0d 0d 28 64 65 66 | 76 61 72 20 2a 6b 62 64 |al..(def|var *kbd|
|000021d0| 6d 61 63 2d 61 63 63 75 | 6d 75 6c 61 74 6f 72 2a |mac-accu|mulator*|
|000021e0| 20 6e 69 6c 29 0d 28 64 | 65 66 76 61 72 20 2a 63 | nil).(d|efvar *c|
|000021f0| 75 72 72 65 6e 74 2d 6b | 62 64 6d 61 63 2a 20 6e |urrent-k|bdmac* n|
|00002200| 69 6c 29 0d 0d 28 64 65 | 66 75 6e 20 73 74 61 72 |il)..(de|fun star|
|00002210| 74 2d 6b 62 64 6d 61 63 | 20 28 77 69 6e 64 6f 77 |t-kbdmac| (window|
|00002220| 29 20 0d 20 20 28 64 65 | 63 6c 61 72 65 20 28 69 |) .  (de|clare (i|
|00002230| 67 6e 6f 72 65 20 77 69 | 6e 64 6f 77 29 29 0d 20 |gnore wi|ndow)). |
|00002240| 20 28 73 65 74 71 20 2a | 6b 62 64 6d 61 63 2d 61 | (setq *|kbdmac-a|
|00002250| 63 63 75 6d 75 6c 61 74 | 6f 72 2a 20 28 6c 69 73 |ccumulat|or* (lis|
|00002260| 74 20 3a 73 74 61 72 74 | 29 29 0d 3b 6e 6f 74 20 |t :start|)).;not |
|00002270| 77 6f 72 6b 69 6e 67 20 | 20 20 20 28 73 65 74 71 |working |   (setq|
|00002280| 20 20 20 20 2a 66 72 65 | 64 2d 6b 65 79 73 74 72 |    *fre|d-keystr|
|00002290| 6f 6b 65 2d 68 6f 6f 6b | 2a 20 23 27 6b 62 64 6d |oke-hook|* #'kbdm|
|000022a0| 61 63 2d 6b 65 79 73 74 | 72 6f 6b 65 2d 68 6f 6f |ac-keyst|roke-hoo|
|000022b0| 6b 29 0d 20 20 3b 3b 20 | 2b 2b 2b 20 69 6e 64 69 |k).  ;; |+++ indi|
|000022c0| 63 61 74 65 20 69 6e 20 | 6d 6f 64 65 20 6c 69 6e |cate in |mode lin|
|000022d0| 65 0d 20 20 29 0d 0d 28 | 61 64 76 69 73 65 20 72 |e.  )..(|advise r|
|000022e0| 75 6e 2d 66 72 65 64 2d | 63 6f 6d 6d 61 6e 64 20 |un-fred-|command |
|000022f0| 0d 20 20 20 20 20 20 20 | 20 28 77 68 65 6e 20 2a |.       | (when *|
|00002300| 6b 62 64 6d 61 63 2d 61 | 63 63 75 6d 75 6c 61 74 |kbdmac-a|ccumulat|
|00002310| 6f 72 2a 0d 20 20 20 20 | 20 20 20 20 20 20 28 70 |or*.    |      (p|
|00002320| 75 73 68 20 2a 63 75 72 | 72 65 6e 74 2d 6b 65 79 |ush *cur|rent-key|
|00002330| 73 74 72 6f 6b 65 2a 20 | 2a 6b 62 64 6d 61 63 2d |stroke* |*kbdmac-|
|00002340| 61 63 63 75 6d 75 6c 61 | 74 6f 72 2a 29 29 0d 20 |accumula|tor*)). |
|00002350| 20 20 20 20 20 20 20 3a | 77 68 65 6e 20 3a 61 66 |       :|when :af|
|00002360| 74 65 72 20 3a 6e 61 6d | 65 20 6b 62 64 6d 61 63 |ter :nam|e kbdmac|
|00002370| 2d 72 65 63 6f 72 64 65 | 72 29 0d 0d 28 64 65 66 |-recorde|r)..(def|
|00002380| 75 6e 20 6b 62 64 6d 61 | 63 2d 6b 65 79 73 74 72 |un kbdma|c-keystr|
|00002390| 6f 6b 65 2d 68 6f 6f 6b | 20 28 29 0d 20 20 28 70 |oke-hook| ().  (p|
|000023a0| 75 73 68 20 2a 63 75 72 | 72 65 6e 74 2d 6b 65 79 |ush *cur|rent-key|
|000023b0| 73 74 72 6f 6b 65 2a 20 | 2a 6b 62 64 6d 61 63 2d |stroke* |*kbdmac-|
|000023c0| 61 63 63 75 6d 75 6c 61 | 74 6f 72 2a 29 29 0d 0d |accumula|tor*))..|
|000023d0| 28 64 65 66 75 6e 20 65 | 6e 64 2d 6b 62 64 6d 61 |(defun e|nd-kbdma|
|000023e0| 63 20 28 77 69 6e 64 6f | 77 29 0d 20 20 28 64 65 |c (windo|w).  (de|
|000023f0| 63 6c 61 72 65 20 28 69 | 67 6e 6f 72 65 20 77 69 |clare (i|gnore wi|
|00002400| 6e 64 6f 77 29 29 0d 20 | 20 3b 3b 20 54 72 69 6d |ndow)). | ;; Trim|
|00002410| 73 20 6f 66 66 20 76 61 | 72 69 6f 75 73 20 63 72 |s off va|rious cr|
|00002420| 61 70 6f 6c 61 0d 20 20 | 28 73 65 74 71 20 2a 63 |apola.  |(setq *c|
|00002430| 75 72 72 65 6e 74 2d 6b | 62 64 6d 61 63 2a 20 28 |urrent-k|bdmac* (|
|00002440| 63 64 64 72 20 28 6e 72 | 65 76 65 72 73 65 20 28 |cddr (nr|everse (|
|00002450| 63 64 72 20 2a 6b 62 64 | 6d 61 63 2d 61 63 63 75 |cdr *kbd|mac-accu|
|00002460| 6d 75 6c 61 74 6f 72 2a | 29 29 29 0d 20 20 20 20 |mulator*|))).    |
|00002470| 20 20 20 20 2a 6b 62 64 | 6d 61 63 2d 61 63 63 75 |    *kbd|mac-accu|
|00002480| 6d 75 6c 61 74 6f 72 2a | 20 6e 69 6c 29 29 0d 0d |mulator*| nil))..|
|00002490| 28 64 65 66 75 6e 20 72 | 75 6e 2d 6b 62 64 6d 61 |(defun r|un-kbdma|
|000024a0| 63 20 28 77 69 6e 64 6f | 77 29 0d 20 20 28 6c 65 |c (windo|w).  (le|
|000024b0| 74 20 28 28 6e 74 69 6d | 65 73 20 28 66 72 65 64 |t ((ntim|es (fred|
|000024c0| 2d 70 72 65 66 69 78 2d | 6e 75 6d 65 72 69 63 2d |-prefix-|numeric-|
|000024d0| 76 61 6c 75 65 20 77 69 | 6e 64 6f 77 29 20 29 29 |value wi|ndow) ))|
|000024e0| 0d 20 20 20 20 28 73 65 | 74 66 20 28 66 72 65 64 |.    (se|tf (fred|
|000024f0| 2d 70 72 65 66 69 78 2d | 61 72 67 75 6d 65 6e 74 |-prefix-|argument|
|00002500| 20 77 69 6e 64 6f 77 29 | 20 6e 69 6c 29 0d 20 20 | window)| nil).  |
|00002510| 20 20 28 64 6f 74 69 6d | 65 73 20 28 6e 20 6e 74 |  (dotim|es (n nt|
|00002520| 69 6d 65 73 29 0d 20 20 | 20 20 20 20 28 64 6f 6c |imes).  |    (dol|
|00002530| 69 73 74 20 28 6b 65 79 | 73 74 72 6f 6b 65 20 2a |ist (key|stroke *|
|00002540| 63 75 72 72 65 6e 74 2d | 6b 62 64 6d 61 63 2a 29 |current-|kbdmac*)|
|00002550| 0d 20 20 20 20 20 20 20 | 20 28 6c 65 74 2a 20 28 |.       | (let* (|
|00002560| 28 2a 63 75 72 72 65 6e | 74 2d 6b 65 79 73 74 72 |(*curren|t-keystr|
|00002570| 6f 6b 65 2a 20 6b 65 79 | 73 74 72 6f 6b 65 29 0d |oke* key|stroke).|
|00002580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00002590| 6b 65 79 73 74 72 6f 6b | 65 2d 6e 61 6d 65 20 28 |keystrok|e-name (|
|000025a0| 6b 65 79 73 74 72 6f 6b | 65 2d 6e 61 6d 65 20 6b |keystrok|e-name k|
|000025b0| 65 79 73 74 72 6f 6b 65 | 29 29 0d 20 20 20 20 20 |eystroke|)).     |
|000025c0| 20 20 20 20 20 20 20 20 | 20 20 28 2a 63 75 72 72 |        |  (*curr|
|000025d0| 65 6e 74 2d 63 68 61 72 | 61 63 74 65 72 2a 20 28 |ent-char|acter* (|
|000025e0| 69 66 20 28 6c 69 73 74 | 70 20 6b 65 79 73 74 72 |if (list|p keystr|
|000025f0| 6f 6b 65 2d 6e 61 6d 65 | 29 20 0d 20 20 20 20 20 |oke-name|) .     |
|00002600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002620| 20 28 63 61 72 20 28 6c | 61 73 74 20 6b 65 79 73 | (car (l|ast keys|
|00002630| 74 72 6f 6b 65 2d 6e 61 | 6d 65 29 29 0d 20 20 20 |troke-na|me)).   |
|00002640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002660| 20 20 20 6b 65 79 73 74 | 72 6f 6b 65 2d 6e 61 6d |   keyst|roke-nam|
|00002670| 65 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |e)).    |        |
|00002680| 20 20 20 28 2a 6c 61 73 | 74 2d 63 6f 6d 6d 61 6e |   (*las|t-comman|
|00002690| 64 2a 20 6e 69 6c 29 29 | 20 20 20 3b 20 70 72 6f |d* nil))|   ; pro|
|000026a0| 62 61 62 6c 79 20 77 72 | 6f 6e 67 0d 20 20 20 20 |bably wr|ong.    |
|000026b0| 20 20 20 20 20 20 28 72 | 75 6e 2d 66 72 65 64 2d |      (r|un-fred-|
|000026c0| 63 6f 6d 6d 61 6e 64 20 | 77 69 6e 64 6f 77 20 28 |command |window (|
|000026d0| 6b 65 79 73 74 72 6f 6b | 65 2d 66 75 6e 63 74 69 |keystrok|e-functi|
|000026e0| 6f 6e 20 77 69 6e 64 6f | 77 20 6b 65 79 73 74 72 |on windo|w keystr|
|000026f0| 6f 6b 65 29 29 29 29 29 | 29 29 0d 0d 28 64 65 66 |oke)))))|))..(def|
|00002700| 75 6e 20 64 69 73 70 6c | 61 79 2d 6b 62 64 6d 61 |un displ|ay-kbdma|
|00002710| 63 20 28 77 69 6e 64 6f | 77 29 0d 20 20 28 64 65 |c (windo|w).  (de|
|00002720| 63 6c 61 72 65 20 28 69 | 67 6e 6f 72 65 20 77 69 |clare (i|gnore wi|
|00002730| 6e 64 6f 77 29 29 0d 20 | 20 28 70 72 69 6e 74 20 |ndow)). | (print |
|00002740| 28 6d 61 70 63 61 72 20 | 23 27 6b 65 79 73 74 72 |(mapcar |#'keystr|
|00002750| 6f 6b 65 2d 6e 61 6d 65 | 20 2a 63 75 72 72 65 6e |oke-name| *curren|
|00002760| 74 2d 6b 62 64 6d 61 63 | 2a 29 20 2a 74 6f 70 2d |t-kbdmac|*) *top-|
|00002770| 6c 69 73 74 65 6e 65 72 | 2a 29 29 0d 0d 3b 3b 3b |listener|*))..;;;|
|00002780| 20 50 61 74 63 68 65 64 | 20 66 72 6f 6d 20 6c 69 | Patched| from li|
|00002790| 62 3b 66 72 65 64 2d 61 | 64 64 69 74 69 6f 6e 73 |b;fred-a|dditions|
|000027a0| 2e 6c 69 73 70 20 2d 2d | 20 6f 72 69 67 69 6e 61 |.lisp --| origina|
|000027b0| 6c 20 6c 6f 6f 6b 65 64 | 20 61 74 20 65 76 65 6e |l looked| at even|
|000027c0| 74 20 72 65 63 6f 72 64 | 20 72 61 74 68 65 72 20 |t record| rather |
|000027d0| 74 68 61 6e 20 2a 63 75 | 72 72 65 6e 74 2d 6b 65 |than *cu|rrent-ke|
|000027e0| 79 73 74 72 6f 6b 65 2a | 0d 28 64 65 66 75 6e 20 |ystroke*|.(defun |
|000027f0| 69 2d 73 65 61 72 63 68 | 2d 64 6f 2d 6b 65 79 73 |i-search|-do-keys|
|00002800| 74 72 6f 6b 65 20 28 77 | 29 0d 20 20 28 64 65 63 |troke (w|).  (dec|
|00002810| 6c 61 72 65 20 28 73 70 | 65 63 69 61 6c 20 2a 64 |lare (sp|ecial *d|
|00002820| 65 66 61 75 6c 74 2d 63 | 6f 6d 6d 61 6e 64 2d 70 |efault-c|ommand-p|
|00002830| 2a 29 29 0d 20 20 28 6c | 65 74 2a 20 28 28 6b 65 |*)).  (l|et* ((ke|
|00002840| 79 2d 63 6f 64 65 20 2a | 63 75 72 72 65 6e 74 2d |y-code *|current-|
|00002850| 6b 65 79 73 74 72 6f 6b | 65 2a 29 0d 20 20 20 20 |keystrok|e*).    |
|00002860| 20 20 20 20 20 28 6b 65 | 79 2d 6e 61 6d 65 20 28 |     (ke|y-name (|
|00002870| 6b 65 79 73 74 72 6f 6b | 65 2d 6e 61 6d 65 20 6b |keystrok|e-name k|
|00002880| 65 79 2d 63 6f 64 65 29 | 29 29 0d 20 20 20 20 28 |ey-code)|)).    (|
|00002890| 69 66 20 28 61 6e 64 20 | 28 6f 72 20 28 25 69 3e |if (and |(or (%i>|
|000028a0| 20 6b 65 79 2d 63 6f 64 | 65 20 33 32 29 0d 20 20 | key-cod|e 32).  |
|000028b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|000028c0| 65 71 20 6b 65 79 2d 63 | 6f 64 65 20 28 63 68 61 |eq key-c|ode (cha|
|000028d0| 72 2d 63 6f 64 65 20 23 | 5c 72 65 74 75 72 6e 29 |r-code #|\return)|
|000028e0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|000028f0| 20 20 20 28 65 71 20 6b | 65 79 2d 63 6f 64 65 20 |   (eq k|ey-code |
|00002900| 28 63 68 61 72 2d 63 6f | 64 65 20 23 5c 74 61 62 |(char-co|de #\tab|
|00002910| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)).     |        |
|00002920| 20 20 20 20 28 65 71 20 | 6b 65 79 2d 63 6f 64 65 |    (eq |key-code|
|00002930| 20 28 63 68 61 72 2d 63 | 6f 64 65 20 23 5c 73 70 | (char-c|ode #\sp|
|00002940| 61 63 65 29 29 29 0d 20 | 20 20 20 20 20 20 20 20 |ace))). |        |
|00002950| 20 20 20 20 28 6e 65 71 | 20 6b 65 79 2d 6e 61 6d |    (neq| key-nam|
|00002960| 65 20 23 5c 72 75 62 6f | 75 74 29 0d 20 20 20 20 |e #\rubo|ut).    |
|00002970| 20 20 20 20 20 20 20 20 | 20 28 63 68 61 72 61 63 |        | (charac|
|00002980| 74 65 72 70 20 6b 65 79 | 2d 6e 61 6d 65 29 29 0d |terp key|-name)).|
|00002990| 20 20 20 20 20 20 20 20 | 20 20 20 28 69 2d 73 65 |        |   (i-se|
|000029a0| 61 72 63 68 2d 61 64 64 | 2d 63 68 61 72 20 77 20 |arch-add|-char w |
|000029b0| 6b 65 79 2d 6e 61 6d 65 | 29 0d 20 20 20 20 20 20 |key-name|).      |
|000029c0| 20 20 20 20 20 28 70 72 | 6f 67 6e 0d 20 20 20 20 |     (pr|ogn.    |
|000029d0| 20 20 20 20 20 20 20 20 | 20 28 65 64 2d 70 75 73 |        | (ed-pus|
|000029e0| 68 2d 6d 61 72 6b 20 77 | 20 28 63 61 72 20 2a 69 |h-mark w| (car *i|
|000029f0| 2d 73 65 61 72 63 68 2d | 6f 72 69 67 69 6e 61 6c |-search-|original|
|00002a00| 2d 70 6f 73 2a 29 29 0d | 20 20 20 20 20 20 20 20 |-pos*)).|        |
|00002a10| 20 20 20 20 20 28 72 65 | 6d 6f 76 65 2d 73 68 61 |     (re|move-sha|
|00002a20| 64 6f 77 69 6e 67 2d 63 | 6f 6d 74 61 62 20 77 29 |dowing-c|omtab w)|
|00002a30| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 28 |.       |      ;(|
|00002a40| 63 6f 6c 6c 61 70 73 65 | 2d 73 65 6c 65 63 74 69 |collapse|-selecti|
|00002a50| 6f 6e 20 77 20 74 29 20 | 3b 20 49 20 6c 69 6b 65 |on w t) |; I like|
|00002a60| 20 74 68 69 73 20 62 75 | 74 20 4d 61 63 20 77 65 | this bu|t Mac we|
|00002a70| 65 6e 69 65 73 20 70 72 | 6f 62 61 62 6c 79 20 77 |enies pr|obably w|
|00002a80| 6f 6e 74 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ont.    |        |
|00002a90| 20 28 72 75 6e 2d 66 72 | 65 64 2d 63 6f 6d 6d 61 | (run-fr|ed-comma|
|00002aa0| 6e 64 20 77 20 28 6b 65 | 79 73 74 72 6f 6b 65 2d |nd w (ke|ystroke-|
|00002ab0| 66 75 6e 63 74 69 6f 6e | 20 77 20 6b 65 79 2d 63 |function| w key-c|
|00002ac0| 6f 64 65 29 29 0d 20 20 | 20 20 20 20 20 20 20 20 |ode)).  |        |
|00002ad0| 20 20 20 28 73 65 74 71 | 20 2a 64 65 66 61 75 6c |   (setq| *defaul|
|00002ae0| 74 2d 63 6f 6d 6d 61 6e | 64 2d 70 2a 20 74 29 0d |t-comman|d-p* t).|
|00002af0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 69 2d |        |     (i-|
|00002b00| 73 65 61 72 63 68 2d 61 | 6c 6c 2d 64 6f 6e 65 20 |search-a|ll-done |
|00002b10| 77 29 29 29 29 29 0d 0d | 28 63 6f 6d 74 61 62 2d |w)))))..|(comtab-|
|00002b20| 73 65 74 2d 6b 65 79 20 | 2a 63 6f 6e 74 72 6f 6c |set-key |*control|
|00002b30| 2d 78 2d 63 6f 6d 74 61 | 62 2a 20 23 5c 28 20 27 |-x-comta|b* #\( '|
|00002b40| 73 74 61 72 74 2d 6b 62 | 64 6d 61 63 20 22 53 74 |start-kb|dmac "St|
|00002b50| 61 72 74 20 61 20 6b 65 | 79 62 6f 61 72 64 20 6d |art a ke|yboard m|
|00002b60| 61 63 72 6f 22 29 0d 28 | 63 6f 6d 74 61 62 2d 73 |acro").(|comtab-s|
|00002b70| 65 74 2d 6b 65 79 20 2a | 63 6f 6e 74 72 6f 6c 2d |et-key *|control-|
|00002b80| 78 2d 63 6f 6d 74 61 62 | 2a 20 23 5c 29 20 27 65 |x-comtab|* #\) 'e|
|00002b90| 6e 64 2d 6b 62 64 6d 61 | 63 20 22 45 6e 64 20 74 |nd-kbdma|c "End t|
|00002ba0| 68 65 20 63 75 72 72 65 | 6e 74 20 6b 65 79 62 6f |he curre|nt keybo|
|00002bb0| 61 72 64 20 6d 61 63 72 | 6f 22 29 0d 28 63 6f 6d |ard macr|o").(com|
|00002bc0| 74 61 62 2d 73 65 74 2d | 6b 65 79 20 2a 63 6f 6e |tab-set-|key *con|
|00002bd0| 74 72 6f 6c 2d 78 2d 63 | 6f 6d 74 61 62 2a 20 23 |trol-x-c|omtab* #|
|00002be0| 5c 65 20 27 72 75 6e 2d | 6b 62 64 6d 61 63 20 22 |\e 'run-|kbdmac "|
|00002bf0| 52 75 6e 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |Run the |current |
|00002c00| 6b 65 79 62 6f 61 72 64 | 20 6d 61 63 72 6f 22 29 |keyboard| macro")|
|00002c10| 0d 28 63 6f 6d 74 61 62 | 2d 73 65 74 2d 6b 65 79 |.(comtab|-set-key|
|00002c20| 20 2a 63 6f 6e 74 72 6f | 6c 2d 78 2d 63 6f 6d 74 | *contro|l-x-comt|
|00002c30| 61 62 2a 20 27 28 3a 63 | 6f 6e 74 72 6f 6c 20 23 |ab* '(:c|ontrol #|
|00002c40| 5c 65 29 20 27 64 69 73 | 70 6c 61 79 2d 6b 62 64 |\e) 'dis|play-kbd|
|00002c50| 6d 61 63 20 22 44 69 73 | 70 6c 61 79 20 74 68 65 |mac "Dis|play the|
|00002c60| 20 63 75 72 72 65 6e 74 | 20 6b 65 79 62 6f 61 72 | current| keyboar|
|00002c70| 64 20 6d 61 63 72 6f 22 | 29 0d 0d 3b 3b 3b 20 54 |d macro"|)..;;; T|
|00002c80| 68 69 73 20 64 6f 65 73 | 6e 27 74 20 62 65 6c 6f |his does|n't belo|
|00002c90| 6e 67 20 68 65 72 65 2c | 20 62 75 74 20 49 20 64 |ng here,| but I d|
|00002ca0| 6f 6e 27 74 20 68 61 76 | 65 20 61 20 43 43 4c 20 |on't hav|e a CCL |
|00002cb0| 66 69 6c 65 20 68 61 6e | 64 79 3a 0d 0d 28 64 65 |file han|dy:..(de|
|00002cc0| 66 6d 65 74 68 6f 64 20 | 73 65 74 2d 73 65 6c 65 |fmethod |set-sele|
|00002cd0| 63 74 65 64 2d 69 74 65 | 6d 20 28 28 6d 65 6e 75 |cted-ite|m ((menu|
|00002ce0| 20 70 6f 70 2d 75 70 2d | 6d 65 6e 75 29 20 69 74 | pop-up-|menu) it|
|00002cf0| 65 6d 29 0d 20 20 28 6c | 65 74 20 28 28 70 6f 73 |em).  (l|et ((pos|
|00002d00| 69 74 69 6f 6e 20 28 70 | 6f 73 69 74 69 6f 6e 20 |ition (p|osition |
|00002d10| 69 74 65 6d 20 28 6d 65 | 6e 75 2d 69 74 65 6d 73 |item (me|nu-items|
|00002d20| 20 6d 65 6e 75 29 29 29 | 29 0d 20 20 20 20 28 69 | menu)))|).    (i|
|00002d30| 66 20 70 6f 73 69 74 69 | 6f 6e 0d 20 20 20 20 20 |f positi|on.     |
|00002d40| 20 28 70 72 6f 67 6e 0d | 20 20 20 20 20 20 20 20 | (progn.|        |
|00002d50| 28 73 65 74 66 20 28 70 | 6f 70 2d 75 70 2d 6d 65 |(setf (p|op-up-me|
|00002d60| 6e 75 2d 64 65 66 61 75 | 6c 74 2d 69 74 65 6d 20 |nu-defau|lt-item |
|00002d70| 6d 65 6e 75 29 20 28 31 | 2b 20 70 6f 73 69 74 69 |menu) (1|+ positi|
|00002d80| 6f 6e 29 29 0d 20 20 20 | 20 20 20 20 20 28 69 6e |on)).   |     (in|
|00002d90| 76 61 6c 69 64 61 74 65 | 2d 76 69 65 77 20 6d 65 |validate|-view me|
|00002da0| 6e 75 29 29 0d 20 20 20 | 20 20 20 28 65 72 72 6f |nu)).   |   (erro|
|00002db0| 72 20 22 7e 41 20 69 73 | 6e 27 74 20 61 6e 20 69 |r "~A is|n't an i|
|00002dc0| 74 65 6d 20 6f 66 20 7e | 41 22 20 69 74 65 6d 20 |tem of ~|A" item |
|00002dd0| 6d 65 6e 75 29 29 29 29 | 00 00 00 00 00 00 00 00 |menu))))|........|
|00002de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e00| 00 00 01 00 00 00 01 8d | 00 00 00 8d 00 00 00 52 |........|.......R|
|00002e10| 42 61 64 21 ff ff a4 51 | 03 81 00 00 1a 62 06 42 |Bad!...Q|.....b.B|
|00002e20| 2e 41 2e 44 2e 6c 65 54 | 61 6c 6b 20 49 6d 61 67 |.A.D.leT|alk Imag|
|00002e30| 12 6d 74 2d 66 72 65 64 | 2d 68 61 63 6b 73 2e 6c |.mt-fred|-hacks.l|
|00002e40| 69 73 70 72 02 00 00 00 | 54 45 58 54 43 43 4c 32 |ispr....|TEXTCCL2|
|00002e50| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 28 00 60 |..TEXTCC|L2...(.`|
|00002e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e70| 00 00 a4 71 90 25 00 00 | 2d 58 00 00 01 df 06 4c |...q.%..|-X.....L|
|00002e80| 69 73 70 2d 38 30 a7 32 | 69 33 6b 20 49 6d 61 67 |isp-80.2|i3k Imag|
|00002e90| 65 57 72 69 74 65 72 00 | 00 00 00 00 00 00 07 02 |eWriter.|........|
|00002ea0| 43 44 73 6b ff fe a2 f5 | 9a 35 00 00 07 7f 09 43 |CDsk....|.5.....C|
|00002eb0| 6f 6c 6f 72 44 65 73 6b | 70 32 2d 35 49 6d 61 67 |olorDesk|p2-5Imag|
|00002ec0| 65 57 72 69 74 65 72 00 | 00 00 00 00 00 00 07 02 |eWriter.|........|
|00002ed0| 43 44 73 6b ff ff a2 f5 | 9a 35 00 00 07 81 09 43 |CDsk....|.5.....C|
|00002ee0| 6f 6c 6f 72 44 65 73 6b | 70 32 2d 35 41 69 64 20 |olorDesk|p2-5Aid |
|00002ef0| 31 2e 30 2e 32 00 00 00 | 00 00 00 00 00 00 07 02 |1.0.2...|........|
|00002f00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00002f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f20| 00 00 00 00 00 00 00 06 | 00 08 00 2c 00 06 02 22 |........|...,..."|
|00002f30| 02 9e 00 2c 00 06 02 22 | 02 9e 00 00 00 00 00 00 |...,..."|........|
|00002f40| 20 31 00 00 20 31 00 00 | 1c 52 01 00 00 00 00 22 | 1.. 1..|.R....."|
|00002f50| 00 03 00 04 09 00 00 04 | 09 01 00 04 09 02 01 00 |........|........|
|00002f60| 00 00 02 00 03 8d 01 00 | 03 92 03 00 03 b6 01 00 |........|........|
|00002f70| 03 bd 00 00 00 17 00 2a | 06 4d 6f 6e 61 63 6f 06 |.......*|.Monaco.|
|00002f80| 4d 6f 6e 61 63 6f 06 4d | 6f 6e 61 63 6f 00 00 01 |Monaco.M|onaco...|
|00002f90| 00 00 00 01 8d 00 00 00 | 8d 00 00 00 52 00 42 76 |........|....R.Bv|
|00002fa0| d8 0b 06 00 00 00 1c 00 | 52 00 01 46 52 45 44 00 |........|R..FRED.|
|00002fb0| 01 00 12 4d 50 53 52 00 | 00 00 2a 00 02 ff ff 00 |...MPSR.|..*.....|
|00002fc0| 00 00 4c 00 00 00 00 00 | 03 ff ff 00 00 00 72 00 |..L.....|......r.|
|00002fd0| 00 00 00 03 ed ff ff 00 | 00 00 00 00 42 99 20 00 |........|....B. .|
|00002fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+